Top 10k strings from Video Basic - Issue 05 (1985)(Ingelek Jackson)(16k)(es).tzx
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
11 CAR 5 A$="PON EN MARCHA LA GRABADORA": 5 "4";"ESTA BIEN ESCRITO ? (S/N)"; 5 "23606",z: 5 "10",z;" PARA LA GRABADORA ": 4 t$=" PULSA UNA TECLA PARA CONTINUAR " 4 "9",N;" ~|"; 4 "8",N;A$(N-2 4 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>": 4 "10",N;" \]" 4 PASO A LA PARTE"; 3 t$(2)-48": 3 U;" ";N$;" " 3 T$=" ELIGE, `:": 3 ;" PARA LA GRABADORA ": 3 ;" ": 3 "28"-J/A,ER+J/A*.7 3 "126-XL/2", 3 "10-a/2",U; 3 VUELTA AL PRINCIPIO"; 2 y+y1,x+x1; 2 y$=" PULSA UNA TECLA PARA CONTINUAR ": 2 t$="f812d11 C = "+ 2 t$(3)-48": 2 p$="VIDEOHARDWARE: ": 2 p$="VIDEOBREAK: ": 2 p$="VIDEOBASIC-LA PROGRAMACION: ": 2 LETREROS ENTRANTES 2 LETRERO ROTATORIO 2 LEE LOS UDG 2 HOMBRECILLO 2 CHR$CODE 2 ;"VIDEOBASIC": 2 ;"INTROGENER" 2 ;" SIGUIENTE" 2 ;" " 2 * * 2 * * 2 "6";" SIGUIENTE" 2 "23296"+N, 2 "(21-YP)*8-2": 2 SOFTIDEA (Como) 2 PARA LA GRABADORA 2 2 1 z(i),n;"_": 1 z(i),k(i);d$(i);" "; 1 yp=yp+(t$(i)="b")-(t$(i)="a"): 1 y(n)=y(n+1 1 y$="PULSA UNA TECLA PARA CONTINUAR ": 1 xp=xp+(t$(i)="d")-(t$(i)="s"): 1 x1,y1;p$(y) 1 w$="PON EN MARCHA LA GRABADORA": 1 u;"KE"(FL+U); 1 u;"EXACTO !": 1 u;"C=VAR.CONTR. N=NUMERO X=RESULT." 1 t$="f412d11 C = 1 1 t$="TRADUCCION AL 1 t$(u+u)-48": 1 t$(u)="<": 1 t$(u)="1292"(B) 1 t$(4)-49": 1 t$(3)-49": 1 t$(3)-48)*4+2": 1 t$(3)-48", 1 t$(2)-48)*8+2": 1 t$(2)-48"; 1 qqqqqqqqqqqqqqqqqqqqqqqqqtttttttqqqqqqqqqqqqqqqqqtttttttttttttttqqqqqqqqqqqqqqqqqqqtrrrrrrrrrrttqqqqqqqqqqqqqqqqqqqqttttttttttttrrrzzzzzyyyyyyyyyzrrttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxx|||||zrtttttttttttttrrrz}}xxx||||||||zrtttttttttttttrrrz}}xxx|||yyy||zrtttttttttttttrrrz}}xxx|||yyyy|zrtttttttttttttrrrz}xxzzbb|xyyy|zrtttttttttttttrrrz}}xzzbb|xyyy|zrtttttttttttttrrrz}}xzzbb||||||zrtttttttttttttrrrz}}xxxzb||||||zrtttttttttttttrrrz}}xxx||||||||zrtttttttttttttrrrz}}xxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxzzzzzzzzzzzzrrrtttttttttttrrrzxxzzzzzzzzzzzzrrrtttttttttttrrrzzzzzzzzzzzzzzzrrrtttttttttttrrrzzzzzzzzzzzzzzzrttttttttttttt22222222222222222222222244444444 1 p;" ": 1 p;" ": 1 p$="siguientes : ": 1 p$="los temas de la leccion ": 1 p$="juego de adivinanzas sobre ": 1 p$="en el proximo numero... ": 1 p$="el televisor ": 1 p$="concierto de bytes ": 1 p$="VIDEOTEST: ": 1 p$="VIDEONEXT: ": 1 p$="VIDEONEXT": 1 p$="VIDEOLIST": 1 p$="VIDEOJUEGO: ": 1 p$="VIDEOJUEGO: ": 1 p$="VIDEOBASIC-EL LENGUAJE: ": 1 p$="Uso avanzado de PRINT-INPUT ": 1 p$="Usa los mandos": 1 p$="RND - RANDOMIZE ": 1 p$="PAUSE ": 1 p$="PARA LA GRABADORA": 1 p$="MOSAICO ": 1 p$="LOS CICLOS AUTOMATICOS ": 1 p$="LABERINTO 3D ": 1 p$="Inserta los colores": 1 p$="FOR - TO - STEP - NEXT ": 1 p$="El ~Cubo Magico~": 1 p$="El monitor y ": 1 p$="El hardware del teclado ": 1 p$="ESTAS PREPARADO !@": 1 p$="ESTA VEZ, ": 1 p$="Cubo Magico ": 1 p$="CHR$ - CODE - INKEY$ ": 1 p$="AT - TAB - ATRIBUTOS ": 1 p$="* Preparacion *": 1 p$=" del SPECTRUM ": 1 p$=" Resuelve ": 1 p$=" ": 1 n;" ": 1 n;" ": 1 i+"d3A C <= 3f;01f810f;21 1 f$(pn,u)="#" 1 copy=23760 1 cc-aa,dd-bb,ee: 1 c$(k,j)=d$: 1 b$=b$+(w$(j) 1 attr=23813 1 aa,bb,cc,dd,ee: 1 a;" ": 1 a$=a$+f$(rc,i): 1 a$="rafbid" 1 a$="VIDEOBASIC.": 1 a$="UN CIRCUITO INTEGRADO, AL LEERLA LINEA Y LA COLUMNA, LOCALI-ZA LA TECLA Y CONVIERTE ESTAINFORMACION EN UN CARACTER,SEGUN LA TABLA DEL JUEGO DECARACTERES.": 1 a$="Quieres ver de nuevo estaleccion ? (S/N)": 1 a$="POR EJEMPLO: PULSANDO <N>, DE-TERMINAS EL CONTACTO ENTRE LALINEA Y LA COLUMNA QUE LA LO-CALIZA. ESTO LE PERMITE AL IN-TEGRADO RECONOCERLA, Y EMITIREL CODIGO CORRESPONDIENTE.": 1 a$="LA PULSACION DE UNA TECLA, DE-TERMINA EN LA PRACTICA UNCONTACTO ENTRE DOS CONDUCTO-RES: UNO HORIZONTAL (LINEA) YOTRO VERTICAL (COLUMNA).": 1 a$="LA PROGRAMACION": 1 a$="Hasta pronto,": 1 a$="ESTOS ACTUAN SOBRE UN CIRCUITOPROYECTADO PARA PERMITIR MASDE UNA FUNCION POR TECLA.": 1 a$="EN EL CASO DE QUE PULSES <7>,LA CPU, DESPUES DE HABERLORECONOCIDO, EMITE EL CODIGO<55>.": 1 a$=" VIDEOHARDWARE: curso de hardware": 1 a$=" ": 1 a$=" " 1 a$=" VIDEOBASIC PRESENTA ": 1 YY,XX;" "; 1 Y,N;A$(N-2 1 Y,N;" {|"; 1 Y$="PULSA UNA TECLA PARA CONTINUAR ": 1 Y$=" PULSA UNA TECLA PARA CONTINUAR " 1 X<21)+(30-X)*(X>20)"): 1 X,Y;T$(N): 1 X","02ACIERRA CICLO","<<1;","2A50 1 Via Indipendenza, 88 1 Via Indipendenza 88 1 VISUALIZACION BLOQUE 1 VIDEOTEST 1 VIDEONEXT G 1 VIDEOLIST 1 VIDEOHARD H 1 VIDEOBREAK 1 VIDEOBASIC N.5 1 VIDEOBASIC 1 VARIA EL INCREMENTO EN UN CI-CLO FOR-NEXT STEP 1 U;"VUELVE A INTENTARLO !": 1 U;"OTRA VEZ..": 1 U;"LIMITE=3" 1 U;"ESTA ES LA INSTRUCCION EXACTA:": 1 U;"ERROR !": 1 U;" ";N$;" " 1 U+U,XP;A$; 1 TIPO DE TECLADO DEL SPECTRUM MEMBRANA 1 TIPO DE ARGUMENTO PARA CODE CADENA 1 TEST05 1 T$="QUIZAS SEA MEJOR QUE VUELVAS AVER CON CALMA EL DESARROLLODEL PROGRAMA, Y LO INTENTES DENUEVO CON CUIDADO.": 1 T$="EMPLEA EL TECLADO COMO HASAPRENDIDO EN LAS LECCIONES AN-TERIORES, Y REDACTA LAS ORDE-NES QUE TE VAYA PIDIENDO.": 1 T$="ELIGE, "+N$: 1 T$="AHORA, "+N$+"": 1 T$=" ELIGE, {:": 1 SE INTERCALA ENTRE LOS LIMITESDEL FOR TO 1 SCROLL=23828 1 SCREEN 1 S$=" PULSA UNA TECLA PARA CONTINUAR " 1 RUTINA PARA MAQUINA DE ESCRIBIR 1 RUTINA MAQUINA DE ESCRIBIR 1 PRUEBA AHORA A VOLVER A ESCRI-BIR EL PROGRAMA, EN BASE ALDIAGRAMA DE FLUJO. 1 PROPIEDAD DE TECLA QUE SE RE-PITE SI SE MANTIENE PULSADA AUTOREPEAT 1 PROGRAM. 1 PORTADA 1 PETICION DEL NOMBRE 1 P$=P$+"@": 1 P$="VIDEOBASIC-EL LENGUAJE: ": 1 P$="TE PROPONGO UN JUEGO DISTINTO DE LO HABITUAL:": 1 P$="TE HABRAS DADO CUENTA, DE QUEASI, PUEDES EFECTUAR CUALQUIERMOVIMIENTO.@": 1 P$="SI QUIERES VOLVER A VER ESTAS INTRUCCIONES PULSA <R>, DE LO CONTRARIO <C>." 1 P$="POR EJEMPLO, PUEDES HACER GI-RAR LA CARA DELANTERA, 2 POSI-CIONES EN EL SENTIDO DE LASAGUJAS DEL RELOJ.@": 1 P$="PARA PODER SER REPRESENTADO ENSU TOTALIDAD, EL CUBO HA SIDODIBUJADO ABIERTO, ES DECIR,COMO UNA FIGURA PLANA.@" 1 P$="LAS ORDENES QUE PUEDES UTILI-ZAR, ESTAN ARRIBA DESCRITAS.@" 1 P$="HE AQUI OTRO EJEMPLO:<A3>@": 1 P$="HAS DE IMAGINAR QUE TIENES ELCUBO ENTRE LAS MANOS, Y QUEPUEDES HACERLO GIRAR EN CUAL-QUIER DIRECCION.@" 1 P$="ESTE PASATIEMPO HA APASIONADOY ENLOQUECIDO A MILLONES DEPERSONAS, AHORA TU TAMBIENTIENES LA POSIBILIDAD DE JUGARCON TU SPECTRUM." 1 P$="ENTONCES LA ORDEN SERIA: <F2>,ES DECIR, Frente 2 giros." 1 P$="EL FAMOSO CUBO MAGICO.@": 1 P$=" en el numero 6 ": 1 O,i;A$(i-2 1 NOTAS 1 N$=N$+" ": 1 N","045 ABRE ","046 CICLO ","#823","2620 1 M-15337-1985 1 LAS FUNCIONES <CHR$> Y <CODE>SON COMPLEMENTARIAS ENTRE SI,Y SIRVEN PARA CONVERTIR UN CO-DIGO A SU CARACTER CORRESPON-DIENTE, Y VICEVERSA.# #SUPON QUE TIENES A TU DISPOSI-CION UNA SERIE DE LAPICES DECOLOR, Y QUIERES PINTAR UNPRADO, EL CIELO, O EL FUEGO...NO TE SERA MUY DIFICIL: LOS MEDIOS DE QUE DISPONES SEPRESTAN PERFECTAMENTE A ELLO.%EN CAMBIO, SI DESEAS INDICAR,POR EJEMPLO, LA POSICION O ELPESO DE UN OBJETO DETERMINADO,YA NO SERA TAN FACIL. ESTASCANTIDADES SE ADAPTAN MAL ASER REPRESENTADAS MEDIANTE LOSLAPICES DE COLOR. SIN EMBARGO, PUEDES RECURRIR AUN TRUCO, ESTABLECIENDO, POREJEMPLO, EL TRAZADO DE UNA LI-NEA VERDE PARA UN PESO INFE-RIOR A UN KILO, Y ROJA EN ELCASO CONTRARIO.% % AUNQUE INDIRECTAMENTE, HABRASLOGRADO REPRESENTAR UNA INFOR-MACION, MEDIANTE UN MEDIO PO-CO USUAL. EN REALIDAD, HAS REALIZADO UNA<CODIFICACION>.% %LA CODIFICACION ES UNA TECNICAFUNDAMENTAL EN EL CAMPO DE LOSORDENADORES: LAS MAGNITUDESQU 1 LAS 6 TECLAS QUE DISTINGUEN LANACIONALIDAD DEL TECLADO QWERTY 1 INVESTIGA CUAL ES LA TECLA QUEESTA PRESIONADA EN ESE MOMENTO INKEY$ 1 INSTR. 1 INKEYPAUSE 1 INICIALIZA EL CONTADOR EN ENCICLO AUTOMATICO FOR 1 INGELEK JAKSON 1 INDICA EL CARACTER CUYO CODIGOES SU ARGUMENTO CHR$ 1 I.P.TEXTO 1 HAS ESCRITO EL PROGRAMA EM-PLEANDO UNA TECNICA FUNDAMEN-TAL DEL LENGUAJE <BASIC>: ELCICLO <FOR..NEXT>." 1 FUNCION QUE INVESTIGA EL CODI-GO DE UN CARACTER CODE 1 FOR TEXTO 1 ESTANDAR AMERICANO PARA LA CO-DIFICACION DE CARACTERES ASCII 1 ESTA SENTENCIA ES ANALOGA A<INPUT>, PERO SE DIFERENCIA DEELLA, EN QUE NO PARA EL PRO-GRAMA, EN ESPERA DE LA INTRO-DUCCION DE DATOS.% %SE UTILIZA EN APLICACIONES MUYINTERESANTES: COMO LA GESTIONDEL MOVIMIENTO, LA EJECUCIONCONTROLADA DE DETERMINADASFUNCIONES, Y MUCHAS OTRAS. SU USO ES MUY SENCILLO: & &10 PRINT INKEY$& &HACE IMPRIMIR LA TECLA PULSA-DA, EN EL MOMENTO DE LA EJECU-CION DE LA SENTENCIA, CONTI-NUANDO CON LA SIGUIENTE.% %DE TODAS FORMAS, ES POSIBLEPARAR EL PROGRAMA, SI NO HASIDO PULSADA NINGUNA TECLA: & &10 IF INKEY$<>"" THEN GOTO 10 20 IF INKEY$="" THEN GOTO 20 30 PRINT INKEY$ & DE ESTA FORMA, LA IMPRESIONTENDRA LUGAR SOLAMENTE, CUAN-DO SEA PULSADA UNA TECLA CUAL-QUIERA.# # LA SENTENCIA <PAUSE>, SIRVEPARA PARAR LA EJECUCION DE UNPROGRAMA. LA INTERRUPCION PUEDE SER PER-MA 1 DIBUJO @ 1 DETIENE POR UN TIEMPO LA EJE-CUCION DE UN PROGRAMA PAUSE 1 CUBO 1 CUANTOS BITS UTILIZA EL CODIGOASCII PARA CADA CARACTER 7 1 CUANTOS CARACTERES TIENE ELCODIGO ASCII ? 128 1 CODE x 1 CIERRRA UN CICLO ABIERTO PORFOR NEXT 1 C","PLANTEA UN CICLO EN EL QUE <I>","PASE DE <X> A <Y> CON","INCREMENTOS <C>","" 1 C","04C FIN ","#813" 1 B$="------------" 1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10, A PARTIR DE10." 1 A$="VIDEOTEST ": 1 A$="PON EN MARCHA LA GRABADORA" 1 A$="PAUSE": 1 A$="LA LECTURA DEL TECLADO SE REA-LIZA CADA CINCUENTAVO DE SE-GUNDO. EL CODIGO DE LA ULTIMATECLA PULSADA ES MEMORIZADOEN LA VARIABLE DEL SISTEMA<LAST K>, QUE PUEDES LEER CONPEEK 23560.": 1 A$="FOR.. NEXT...": 1 A$="EL TECLADO DEL SPECTRUM, TIENE40 TECLAS QUE SE PUEDEN CONSI-DERAR COMO INTERRUPTORES.": 1 A$=" INKEY$": 1 A$=" CHR$ - CODE": 1 ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? 1 ;n$;" ? (s/n)" 1 ;E$;" = ";E 1 ;"y quita la alimentacion a tu"; 1 ;"ejemplos y ejercicios"; 1 ;"___";w$(i)(f-4 1 ;"Y PULSA <ENTER>": 1 ;"TU PUNTUACION ES ";s;" SOBRE 30." 1 ;"SPECTRUM. Hasta pronto,"; 1 ;"SIGUIENTE"; 1 ;"RESet " 1 ;"R Atras " 1 ;"PREGUNTA N. ";w 1 ;"PARA TERMINAR PULSA <STOP>." 1 ;"PARA MEJORAR, VUELVE A LEER"; 1 ;"NO TE PUEDO AYUDAR": 1 ;"Muy bien, Enhorabuena!" 1 ;"Movimiento_______"; 1 ;"MUY BIEN ";n$; 1 ;"La respuesta correcta es:"; 1 ;"LA RESPUESTA ES MUY CORTA"; 1 ;"Indica movimiento y numero degiros a realizar. Ej: ~a3~" 1 ;"INTENTALO DE NUEVO" 1 ;"INSercion"; 1 ;"I Izquierda " 1 ;"HE AQUI UNA SUGERENCIA:" 1 ;"Guarda el casete en su caja"; 1 ;"F Frente " 1 ;"Esta bien escrito"; 1 ;"ESCRIBE TU NOMBRE"; 1 ;"ES EXACTO." 1 ;"EN EL TECLADO"; 1 ;"D Derecha " 1 ;"B Abajo " 1 ;"A Alto " 1 ;"- - - - - -"''': 1 ;"""";i$;""" esta equivocado." 1 ;" PON EN MARCHA LA GRABADORA "; 1 ;" PON EN MARCHA LA GRABADORA ": 1 ;" ESTOY CARGANDO VIDEOTEST": 1 ;" PARA LA GRABADORA " 1 ;" estoy cargando "''" VIDEOHARDWARE ": 1 ;" "; 1 ;" ": 1 ;" "; 1 ;" "; 1 ;" ": 1 ;" ": 1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?","" 1 4 O U T P U T ","04=IMPRIME ","04>RESULT. ","#82;","2>40 1 24,6666666666666666666666666666666666666666666666666666666666666666000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000l 1 23688/2-U" 1 22 - FASE DE CALCULO","COMO OBTENER LOS MULTIPLOS ?","" 1 2 ELABORACION ","049CALCULA ","04: X=C*N ","#82;","2:30 1 11 - FASE DE INPUT","CUAL ES EL ELEMENTO NECESARIOPARA NUESTRO PROBLEMA ?","" 1 10","PLANTEA UN CICLO CON","<I> QUE VAYA DE 2 A 10","" 1 1 I N P U T ","042INDICA ","043NUMERO ","#820","2310 1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888N 1 0","PLANTEA UN CICLO INFINITO","EN EL CUAL <A> PERMANEZCA= <3>","" 1 ................................... 1 -J/A,ER+J/A*.7 1 -2.5","PLANTEA UN CICLO EN EL CUAL","<I> ASUMA LOS VALORES:","2,-0.5,-3","" 1 -2","PLANTEA UN CICLO EN EL CUAL","<I> ASUMA LOS VALORES:","10,8,6,4,2,0","" 1 ,k(i);" ": 1 ,XX;" "; 1 ,XX;" " 1 ," ": 1 +"d3A C > 3 f412 1 **AYUDA II INTENTO** 1 ***respuestas flash*** 1 ***puntuacion*** 1 ***pulsa tecla*** 1 ***comentario final*** 1 ***bloque principal*** 1 ***INPUT controlado*** 1 ***CLS ABAJO*** 1 )="01001110": 1 )="00110111" 1 ));q$(q,65 1 ''''" PRUEBA AHORA A PULSAR LAS TE- CLAS QUE DESEES. EL PROGRAMA QUE TENGO EN MEMORIA, TE PRO- PORCIONARA LOS CODIGOS DECIMA- LES DE LOS CARACTERES PULSADOS:"; 1 #EL GRUPO FOR..NEXT> #EL GRUPO <FOR..NEXT> SIRVEPARA REALIZAR UN CICLO AUTOMA-TICO EN UN PROGRAMA.% %SU FUNCION CONSISTE EN COLOCARTODOS LOS PARAMETROS INDISPEN-SABLES PARA LA CONFECCION DEUN CICLO (<LOOP>):& &* VALOR INICIAL; * VALOR FINAL; * INCREMENTO; * FIN DEL CICLO.% %ESTE ES EL CASO MAS COMUN:& &10 FOR I=1 TO 10 STEP 1 20 ... 30 NEXT I& &... Y SE LEE: 10 PARA I QUE VARIA DE 1 A 10CON PASO (STEP) 1 20 (INSTRUCCION A EJECUTAR) 30 PROXIMO <I>.% %LA INSTRUCCION COMPRENDIDA EN-TRE <FOR..> Y <NEXT> SE EJECU-TA 10 VECES. ADEMAS, LA VARIA-BLE NUMERICA <I> SE INCREMENTAEN CADA CICLO, COMENZANDO DES-DE 1 (FOR), Y LLEGANDO HASTA<10> (TO),CON PASO <1> (STEP);LA VARIABLE <I> TOMA LOS VALO-RES 1..2..3..ETC HASTA <10>,CONTINUANDO ENTONCES LA EJECU-CION A PARTIR DE <NEXT>.% %NATURALMENTE, TODOS LOS VALO-RES PUEDEN ESTAR FORMADOS POREX 1 "xg+xs/2",yg+ys* 1 "t8; ELABORACION","#?1D","t8? NEXT C","<?1D","t8C F I N ","#?1D","" 1 "t83 I N I C I O","#?10","t87 FOR C=1 TO 3","#?1D" 1 "RESPUESTA = "; 1 "PREPAREMOS AHORA ALGUNOS CI-","CLOS CONTROLADOS DE PROGRAMA,","EMPLEANDO LAS INSTRUCCIONES","RECIEN APRENDIDAS.","" 1 "PERFECTO "+N$+" 1 "OBSERVA COMO LOS RESULTADOSHAN SIDO TEMPORALMENTE MEMORI-ZADOS EN LA VARIABLE <X>, EM-PLEADA DESPUES EN LA FASE DEOUTPUT.","" 1 "FOR J=4 TO 1...","HE AQUI EN CAMBIO, UN PLANTEA-","MIENTO EQUIVOCADO, PUESTO QUE","EL STEP ES CONSIDERADO <1>, EL","CICLO NO SE REALIZARA NUNCA.","" 1 "FOR I=A+4 TO B/(C+D) STEP .1","ES POSIBLE EMPLEAR EXPRESIONES","ARITMETICAS, PARA PLANTEARSE","LOS PARAMETROS NECESARIOS.","" 1 "FOR I=1 TO 10:PRINT I:NEXT I","HE AQUI UN CICLO CONTROLADO EN","SU FORMA MAS SENCILLA. ","IMPRIME LOS NUMEROS DEL <1> AL","<10>.","" 1 "FOR I=1 TO 10000:NEXT I","ESTA SECUENCIA, EN APARIENCIA","INUTIL, SIRVE PARA GENERAR RE-","TARDOS EN EL PROGRAMA.","" 1 "FOR A=10 TO 1 STEP -1","ESTA ES EN CAMBIO, LA FORMA","CORRECTA PARA UN CICLO CON IN-","CREMENTOS NEGATIVOS.","" 1 "En este caso el resultado serala impresion de los primeros10 multiplos del numero quehayamos indicado.","","" 1 "Emplearemos la variable decontrol del ciclo <FOR..NEXT>tanto como contador, como mul-tiplicador del numero indica-do.","" 1 "El dato necesario es el numerodel que deseamos obtener losmultiplos.","" 1 "DESEAMOS ESCRIBIR UN PROGRAMAQUE REALICE LAS MISMAS FUNCIO-NES DEL ANTERIOR, PERO QUE USEEL CICLO <FOR..NEXT>.","" 1 "BIEN, "+N$+" 1 "AHORA, "+N$,"TRANSFORMAREMOS EL ANALISISANTERIOR, PRIMERO EN UN DIA-GRAMA DE FLUJO, DESPUES DIREC-TAMENTE A UNA INSTRUCCION<BASIC>.","" 1 "AHORA, "+N$,"COMPLETAREMOS EL ESTUDIO DELCICLO CONTROLADO DE PROGRAMA,INTRODUCIENDO LAS INSTRUCCIO-NES MAS APTAS PARA ELLO: <FOR..TO> Y <NEXT>.","" 1 "6";"PULSA"; 1 "5VIDEOHARD" 1 "5";"VUELVE A INTENTARLO !": 1 "4";"ESTA BIEN ESCRITO ? (S/N)" 1 "3";"TECLADO Y PULSA <ENTER>": 1 "3";"ESCRIBE TU NOMBRE EN EL"; 1 "3";"ESCIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>" 1 "23295+I", 1 "124-XL/2", 1 "10";"VIDEOBASIC": 1 "10";"ERROR !"; 1 "1";" PON EN MARCHA LA GRABADORA ": 1 "*1 ","% " 1 " IMPRESION DE UNA COLUMNA ","DE LA TABLA DE MULTIPLICAR" 1 Tel. 031-240.959 1 Tel. 031-240.959 1 SOFTIDEA (Como) 1 SOFTIDEA (Como) 1 IZQUIERDA -> I 1 INTRODUCCION"; 1 FRENTE ----> F 1 EJERCICIOS"; 1 EJERCICIO" 1 DERECHA ---> D 1 CARGO EL VIDEOJUEGO"; 1 CARGA LA FASE"; 1 ATRAS -----> R 1 ALTO ------> A 1 ABAJO -----> B 1 Tel. 031-240.959 1 D A T A 1 Pon en marcha la grabadora 1 PULSA ~ STOP ~ PARA PARAR 1 ": 1 * 1 1 1 1 1